home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t5.d64 / raster interpt.c (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  97 lines
  1. 10 REM THIS PROGRAM CREATES RASTER
  2. 20 REM INTERRUPTS FOR THE C-64 BASIC.
  3. 30 REM THE PROGRAM CAN BE INCORPORATED
  4. 40 REM IN OTHER BASIC PROGRAMS AS A
  5. 50 REM SUBROUTINE TO CREATE SPLIT       60 REM SCREENS.  THE FOREGROUND COLOR
  6. 70 REM CAN BE SET AS USUAL WITH THE
  7. 80 REM COMMAND PRINT "[CONTROL][NUMBER]
  8. 90 [143] OR PRINT "[COMMODORE KEY][NUMBER)
  9. 100 DIM A(15),B$(15):GOSUB 5000
  10. 110 GOSUB 1000
  11. 120 Z=6*4096:SYSZ
  12. 130 R1=Z+4:R2=Z+3:R3=Z+6:R4=Z+5
  13. 140 C1=150:C2=250:C3=0:C4=1
  14. 150 GET A$:IF A$=""THEN 150
  15. 160 IF A$=""THEN C1=C1+1AND255:GOTO230
  16. 170 IF A$="[145]"THEN C1=C1-1AND255:GOTO230
  17. 180 IF A$=""THEN C2=C2+1AND255:GOTO230
  18. 190 IF A$="[157]"THEN C2=C2-1AND255:GOTO230
  19. 200 IF A$="[133]"THEN C3=C3+1AND15:GOTO230
  20. 210 IF A$="[134]"THEN C4=C4+1AND15:GOTO230
  21. 215 IF A$="[139]"THEN 500
  22. 218 IF A$="[136]"THEN 400
  23. 220 GOTO 150
  24. 230 POKER1,C1:POKER2,C2:POKER3,C3:POKER4,C4:GOTO150
  25. 240 :
  26. 250 REM CURSOR-UP MOVES R1 UP
  27. 260 REM CURSOR-DOWN MOVES R1 DOWN
  28. 270 REM CURSOR-RIGHT MOVES R2 DOWN
  29. 280 REM CURSOR-LEFT MOVES R2 UP
  30. 290 REM F1 BUMPS TOP COLOR
  31. 300 REM F3 BUMPS BOTTOM COLOR
  32. 310 REM F6 STOPS PROGRAM EXECUTION
  33. 320 REM F7 CHANGES FOREGROUND COLOR
  34. 400 PRINT"ENTER COLOR NUMBER (0-15)";:INPUT K
  35. 410 IFK<0ORK>15THEN400
  36. 415 PRINT"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  37. 420 PRINTCHR$(A(K))"     CHOSEN COLOR IS "B$(K):GOTO150
  38. 500 FORJ=0TO50:PRINT:NEXT:END
  39. 1000 FOR J=24576TO24698
  40. 1010 READ X:CH=CH+X
  41. 1020 POKEJ,X:NEXT
  42. 1030 IF CH<>13196 THEN PRINT"DATA ERROR":STOP
  43. 1040 PRINT"[147]"
  44. 1045 PRINT"":FORJ=1TO12:PRINTJ:NEXT
  45. 1046 PRINT13;
  46. 1048 PRINT"[144]":FORJ=14TO24:PRINTJ:NEXT
  47. 1049 PRINT25;
  48. 1050 FORJ=0TO15:READ A(J):NEXT
  49. 1051 FORJ=0TO15:READ B$(J):NEXT:RETURN
  50. 1059 DATA 76,9,96,170,170,170,170,170
  51. 1060 DATA 170,120,169,0,141,14,220,173
  52. 1070 DATA 20,3,141,7,96,173,21,3
  53. 1080 DATA 141,8,96,169,78,141,20,3
  54. 1090 DATA 169,96,141,21,3,169,150,141
  55. 1100 DATA 4,96,169,250,141,3,96,173
  56. 1110 DATA 17,208,41,127,141,17,208,173
  57. 1120 DATA 4,96,141,18,208,169,0,141
  58. 1130 DATA 6,96,169,1,141,5,96,169
  59. 1140 DATA 1,141,26,208,88,96,172,18
  60. 1150 DATA 208,162,2,204,3,96,240,7
  61. 1160 DATA 136,204,3,96,240,1,202,189
  62. 1170 DATA 4,96,141,33,208,189,2,96
  63. 1180 DATA 141,18,208,173,25,208,141,25
  64. 1190 DATA 208,224,1,208,3,76,188,254
  65. 1200 DATA 108,7,96
  66. 2000 DATA 144,5,28,159,156,30,31,158
  67. 2010 DATA 129,149,150,151,152,153,154
  68. 2020 DATA 155
  69. 2030 DATA "BLACK      ","WHITE      ","RED        ","CYAN       "
  70. 2040 DATA "PURPLE     ","GREEN      ","BLUE       "
  71. 2050 DATA "YELLOW     ","ORANGE     ","BROWN      "
  72. 2060 DATA "LIGHT RED","GRAY 1     ","GRAY 2     "
  73. 2070 DATA "LIGHT GREEN","LIGHT BLUE"
  74. 2080 DATA "GRAY 3     "
  75. 5000 POKE53281,0:POKE53280,2
  76. 5010 PRINT"[147]    WOULD YOU LIKE INSTRUCTIONS?"
  77. 5020 PRINT"  (YES/NO)"
  78. 5030 PRINT" ";:INPUT Y$
  79. 5040 IF LEFT$(Y$,1)="Y" THEN 5100
  80. 5050 IF LEFT$(Y$,1)="N" THEN RETURN
  81. 5060 PRINT"[145][145][145]":      GOTO 5030
  82. 5100 PRINT"[147] THIS IS A DEMONSTRATION PROGRAM TO"
  83. 5110 PRINT"SHOW RASTER INTERRUPTS.  USE CURSOR "
  84. 5120 PRINT"UP OR DOWN, RIGHT OR LEFT, TO CONTROL"
  85. 5130 PRINT"SPLIT SCREEN.  F1 CONTROLS TOP"
  86. 5140 PRINT"COLOR AND F3 CONTROLS BOTTOM COLOR"
  87. 5150 PRINT"F6 STOPS THE PROGRAM AND F7 CHANGES"
  88. 5160 PRINT"THE FOREGROUND COLOR"
  89. 5170 PRINT"THIS PROGRAM WAS MODIFIED FROM A "
  90. 5180 PRINT"PROGRAM IN POWER/PLAY, NOVEMBER 1983"
  91. 5190 PRINT"BY EFRAIM HALFON, BURLINGTON, ONT."
  92. 5200 PRINT"NOTE LINES 400-420 USED TO CHANGE"
  93. 5210 PRINT"FOREGROUND COLOR USING NUMBERS (0-15) "
  94. 5220 PRINT"     PRESS ANY KEY TO CONTINUE[146]"
  95. 5230 GET C$:IF C$=""THEN 5230
  96. 5240 RETURN
  97.